From: Kim F. Storm <storm@cua.dk>
Date: Sun, 7 Jul 2002 21:16:23 +0000 (+0000)
Subject: Changed xemacs specific code to avoid byte compiler warning in GNU
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~31829
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a6c4c4565c157aa31ed34daa0a9e685e0375168e;p=emacs.git

Changed xemacs specific code to avoid byte compiler warning in GNU
emacs.
---

diff --git a/lisp/ido.el b/lisp/ido.el
index 9c1c353242e..446a1239a9f 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -2871,10 +2871,12 @@ for first matching file."
 	    (if ido-xemacs 
 		;; XEmacs extents are put on by default, doesn't seem to be
 		;; any way of switching them off.
-		(display-completion-list completion-list
-					 :help-string "ido "
-					 :activate-callback 
-					 '(lambda (x y z) (message "doesn't work yet, sorry!")))
+		;; This obscure code avoids a byte compiler warning in GNU emacs.
+		(let ((f 'display-completion-list))
+		  (funcall f completion-list
+			   :help-string "ido "
+			   :activate-callback 
+			   '(lambda (x y z) (message "doesn't work yet, sorry!"))))
 	      ;; else running Emacs
 	      ;;(add-hook 'completion-setup-hook 'completion-setup-function)
 	      (display-completion-list completion-list)))))))